Complete Linux/Complete Linux.iso/docs/apps/database/ingres04.lzh/source/dbu/save.c

C/C++ Source or Header | 1993-01-20 | 4.2 KB | 241 lines

# include    <pv.h>
# include    <ingres.h>
# include    <aux.h>
# include     <func.h>
# include    <opsys.h>
# include    <errors.h>
#ifdef linux
# include    <time.h>
#else
extern int timezone;
#endif

extern    short    tTdbu[];
extern    int    save();
extern    int    null_fn();

struct fn_def SaveFn =
{
    "SAVE",
    save,
    null_fn,        /* initialization function */
    null_fn,
    NULL,
    0,
    tTdbu,
    100,
    'Z',
    0
};

/*
**  SAVE RELATION UNTIL DATE
**
**    This function arranges to save a named relation until a
**    specified date.
**
**    Parameters:        (pv_type is PV_STR for all of them)
**    0 -- relation name
**    1 -- month (1 -> 12 or "jan" -> "dec" or a variety of other codes)
**    2 -- day (1 -> 31)
**    3 -- year (1970 -> ?)
**
**    Uses trace flag 44
**    Uses error messages 56xx
*/

int    DmSize[12] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};

#ifdef linux
int dysize(int year)
{
    if (year % 400 == 0)
        return 366;
    if (year % 4 == 0 && year % 100 != 0)
        return 366;
    return 365;
}
#endif

save(parmc, parmv)
int    parmc;
PARM    parmv[];
{
    long        date;
    register int    i;
    extern DESC    Reldes;
    TID        tid;
    extern char    *Usercode;
    struct relation    relk, relt;
    int        day, month, year;

    /* convert date */
    /* "date" will be # of days from 1970 for a while */
    date = 0;

    if (parmc == 1)
        goto nodate;

    /*
    **  Validate parameters.
    **
    **    According to my pocket calculator, a 31 bit number will
    **    hold 70 years of accuracy -- hence the 2035 cutoff.  If
    **    this code is still around in 2035, I apologize in
    **    advance.
    */

    year = atoi(parmv[3].pv_val.pv_str);
    if (year < 1970 || year > 2035)
        return (error(BADYEAR, parmv[3].pv_val.pv_str, 0));    /* bad year */
    if (monthcheck(parmv[1].pv_val.pv_str, &month))
        return (error(BADMONTH, parmv[1].pv_val.pv_str, 0));    /* bad month */
    day = atoi(parmv[2].pv_val.pv_str);
    if (day < 1 || day > monthsize(--month, year))
        return (error(BADDAY, parmv[2].pv_val.pv_str, 0));    /* bad day */

    /* do year conversion */
    for (i = 1970; i < year; i++)
    {
        date += dysize(i);
    }

    /* do month conversion */
    for (i = 0; i < month; i++)
        date += DmSize[i];
    /* once again, allow for leapyears */
    if (month >= 2 && year % 4 == 0 && year % 100 != 0)
        date += 1;

    /* do day conversion */
    date += day - 1;

    /* we now convert date to be the # of hours since 1970 */
    date *= 24;

    /* do daylight savings computations */
    /*  <<<<< none now >>>>> */

    /* convert to seconds */
    date *= 60 * 60;

    /* adjust to local time */
    date += timezone;

#    ifdef xZTR1
    if (tTf(45, 1))
        printf("%s", ctime(&date));
#    endif

nodate:
    /* let's check and see if the relation exists */
    opencatalog("relation", OR_WRITE);
    clearkeys(&Reldes);
    setkey(&Reldes, &relk, parmv[0].pv_val.pv_str, RELID);
    setkey(&Reldes, &relk, Usercode, RELOWNER);
    if (getequal(&Reldes, &relk, &relt, &tid))
    {
        return (error(RELNOTFOUND, parmv[0].pv_val.pv_str, 0));    /* relation not found */
    }

    /* check that it is not a system catalog */
    if (relt.relstat & S_CATALOG)
        return (error(NOSAVESYSREL, parmv[0].pv_val.pv_str, 0));    /* cannot save sys rel */
    /* got it; lets change the date */
    relt.relsave = date;

#    ifdef xZTR2
    if (tTf(45, 2))
    {
        printup(&Reldes, &relt);
    }
#    endif

    if ((i = replace(&Reldes, &tid, &relt, 0)) < 0)
        syserr("SAVE: replace %d", i);

    /* that's all folks.... */
    return (0);
}
/*
**  MONTHCHECK
*/

struct monthtab
{
    char    *code;
    int    month;
};

struct monthtab    Monthtab[] =
{
    "jan",        1,
    "feb",        2,
    "mar",        3,
    "apr",        4,
    "may",        5,
    "jun",        6,
    "jul",        7,
    "aug",        8,
    "sep",        9,
    "oct",        10,
    "nov",        11,
    "dec",        12,
    "january",    1,
    "february",    2,
    "march",    3,
    "april",    4,
    "june",        6,
    "july",        7,
    "august",    8,
    "september",    9,
    "october",    10,
    "november",    11,
    "december",    12,
    0
};

monthcheck(input, output)
char    *input;
int    *output;
{
    struct monthtab    *p;
    int        month;

    /* month can be an integer, or an alphanumeric code */
    month = atoi(input);
    if (month != 0)
    {
        *output = month;
        return (month < 1 || month > 12);
    }
    for (p = Monthtab; p->code; p++)
    {
        if (sequal(input, p->code))
        {
            *output = p->month;
            return (0);
        }
    }
    return (1);
}

/*
**  MONTHSIZE -- determine size of a particular month
*/

monthsize(month, year)
int    month;
int    year;
{
    register int    size;

    size = DmSize[month];
    if (month == 1 && dysize(year) == 366)
        /* This is February of a leap year */
        size++;

    return (size);

}